0 CLS:CLEAR,,4:DEFGR$(0)=32,112,32,112,248,188,156,142:DEFGR$(1)=1,79,255,84,16,32,32,64:DEFGR$(2)=23,231,230,230,194,66,127,4:DEFGR$(3)=28,252,252,252,228,102,126,4:LOCATE20,12:PRINTGR$(0):LOCATE19,13:PRINTGR$(1)GR$(2):FORR=0TO200:A=STICK(0):IFA=3THENI=1
1 IFA=7ANDI=1THENI=0:LOCATE20,13:PRINTGR$(3):PLAY"L10O4SOSOSOSO":LOCARE20,13:PRINTGR$(2):SC=SC+1:A=0:GOTO1ELSENEXT:LOCATE0,15:PRINT"VOUS AVEZ FAIT JOUER";SC;"FOIS GERMAINE":INPUT"UNE AUTRE:",A$:IFA$="O"THEN0ELSEPRINT"DOMMAGE !":END